home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Control Panel Hide 9.xpl < prev    next >
Text File  |  2000-11-13  |  4KB  |  122 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #3"
  6. "VERSION"="1.41"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "EppieDesktop" applet"
  9. "TEXT 2"="Display "Rei's More Extensions" applet"
  10. "TEXT 3"="Display "TweakAll" applet"
  11. "TEXT 4"="Display "Startup" applet"
  12. "TEXT 5"="Display "Window Blinds" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "DESCRIPTION 2"="Rei's More Extensions gives more options to Windows' extensions and is available at http://plaza27.mbn.or.jp/~satomii/"
  15. "DESCRIPTION 3"="EppieDesktop can be used to change the image of the Start button and is available at http://www.u.arizona.edu/~jepstein/epdsk/"
  16. "DESCRIPTION 4"="The "Startup" Control Panel applet can be used to show what loads on startup and remove things you don't want. It's available at http://www.mlin.net/StartupCPL.shtml"
  17. "DESCRIPTION 5"="Window Blinds is available at http://www.windowblinds.net/ and allows users to change the way the Windows graphical user interface looks."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"=" "
  22. "COMMENT 2"="Special thanks to Maxwell (maxwello@hotpop.com) for his brilliant tips and CptSiskoX (CptSiskoX@flashmail.com) for his help."
  23. "COMMENT 3"="Thanks also to Ojatex@aol.com [http://users.aol.com/ojatex/laptop.htm]."
  24. "COMMENT 4"="More information: MS KB Q207750"
  25.  
  26.  
  27. '******************************************************************
  28. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  29. '******************************************************************
  30. sVals=""
  31. sVals2=Array("epshell.cpl","moreshex.cpl","TweakAllCPL.Dll","Startup.cpl","wbcpl.cpl")
  32. sVals3=Array("epshell.cpl","moreshex.cpl","TweakAllCPL.Dll","Startup.cpl","wbcpl.cpl")
  33. '******************************************************************
  34. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  35. '******************************************************************
  36. sPath="HKCU\Control Panel\Don't Load\"
  37. sFile="CONTROL.INI"
  38. sFileSec="Don't Load"
  39.  
  40.  
  41.  
  42. SUB Plugin_Initialize
  43.  if GetWinVer=4 then
  44.     sVals=sVals3
  45.  else
  46.     sVals=sVals2
  47.  end if
  48.  
  49.  for i=0 to UBound(sVals)
  50.      Call ReadIt(i+1,sVals(i)) 
  51.  next 
  52. END SUB
  53.  
  54. Sub ReadIt(ITM,VAL)
  55.   If GetWinVer=2 or GetWinVer=4 then
  56.  
  57.      s=RegReadValue(sPath & VAL)
  58.      if IsEmpty(s)=true then
  59.         Call SetUIElement(ITM,true)
  60.      else
  61.         Call SetUIElement(ITM,false)
  62.      end if
  63.  
  64.   else
  65.  
  66.     s=IniReadValue(sFile,sFileSec,VAL)
  67.     if len(s)>0 then
  68.        Call SetUIElement(ITM,false)
  69.     else
  70.        Call SetUIElement(ITM,true)
  71.     end if
  72.      
  73.   end if
  74.      
  75. End Sub
  76.  
  77. 'Called when the Plugin should validate the Data the user has entered
  78. SUB Plugin_CheckData(ElementIndex)
  79. END SUB
  80.  
  81. 'Called when the Plugin should apply the changes
  82. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  83.  for i=0 to UBound(sVals)
  84.      Call WriteIt(i+1,sVals(i)) 
  85.  next 
  86.  
  87.  Call IndicateSettingChange()
  88. END SUB
  89.  
  90. Sub WriteIt(ITM,VAL)
  91.  b=GetUIElement(ITM)
  92.  if b=true then
  93.     'Display it
  94.  
  95.     if GetWinVer=2 or GetWinVer=4 then  
  96.        s=RegReadValue(sPath & VAL)
  97.        if IsEmpty(s)=false then
  98.           Call RegDeleteValue(sPath & VAL)
  99.        end if
  100.     else
  101.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  102.     end if
  103.  
  104.  else
  105.    'Hide it
  106.    
  107.    if GetWinVer=2 or GetWinVer=4 then
  108.       Call RegWriteValue(sPath & VAL,"1",1) 
  109.    else
  110.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  111.    end if
  112.  
  113.  end if   
  114. End Sub
  115.  
  116.  
  117. 'Called when the Plugin is about to be removed from memory
  118. SUB Plugin_Terminate
  119. END SUB
  120.  
  121.  
  122.